home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / see.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  34 lines
  1. 9000 //
  2. 9010 PROC SEE(FILE'NAME$) CLOSED
  3. 9020 DIM TEXT$ OF 80
  4. 9030 SEE'FILE:=106
  5. 9040 CLOSE FILE SEE'FILE // MAKE SURE FILE IS CLOSED
  6. 9050 OPEN FILE SEE'FILE,FILE'NAME$,READ
  7. 9060 PAGE
  8. 9070 REPEAT 
  9. 9080 INPUT FILE SEE'FILE: TEXT$
  10. 9090 // MADE TO READ WORDPRO PRINTER FILES MADE UNDER CBM PRINTER CHOICE
  11. 9100 // NEXT LINE REMOVES A CURSOR DOWN CHARACTER - CHR$(17)
  12. 9110 // WHICH IS USED BY THE CBM PRINTER TO SWITCH TO LOWER CASE MODE
  13. 9120 // ALSO SQUARE BRACKETS ARE FIXED :: CHR$(219) & CHR$(221)
  14. 9130 IF CHR$(17) IN TEXT$ THEN TEXT$(CHR$(17) IN TEXT$):=CHR$(0)
  15. 9140 WHILE CHR$(219) IN TEXT$ DO TEXT$(CHR$(219) IN TEXT$):=CHR$(91)
  16. 9150 WHILE CHR$(221) IN TEXT$ DO TEXT$(CHR$(221) IN TEXT$):=CHR$(93)
  17. 9160 SHIFT'WAIT
  18. 9170 PRINT TEXT$
  19. 9180 UNTIL EOF(SEE'FILE)
  20. 9190 CLOSE FILE SEE'FILE
  21. 9200 INPUT "FINISHED - HIT <RETURN> WHEN READY": TEXT$;
  22. 9210 PRINT 
  23. 9220 ENDPROC SEE
  24. 9230 //
  25. 9240 //
  26. 9250 PROC SHIFT'WAIT CLOSED
  27. 9260 SHIFT'FLAG:=653 //152 ROM LOCATION FOR SHIFT STATUS - PET
  28. 9270 WHILE NOT PEEK(SHIFT'FLAG) DO
  29. 9280 PRINT "PRESS SHIFTæ" //CURSOR UP
  30. 9290 PRINT "           æ" //ERASE MESSAGE
  31. 9300 ENDWHILE 
  32. 9310 ENDPROC SHIFT'WAIT
  33. 9320 //
  34.